home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / CRS / crs17.d81 / cad401.sfx / d (.txt) < prev    next >
Commodore BASIC  |  1990-02-12  |  1KB  |  45 lines
  1. 1 OPEN15,D0,15,"UI:":CLOSE15
  2. 2 F=0:A=USR(32),0:GOTO21
  3. 3 GETA$:IFA$=""THEN15
  4. 4 IFA$>"/"ANDA$<":"THENSF=VAL(A$)-SS*(A$="0")
  5. 5 IFA$="[147]"THENSYS36888
  6. 6 IFA$="!"THENSYS36867
  7. 7 IFA$="="THENSYS36882
  8. 8 IFA$="&"THENSYS36879
  9. 9 IFA$="#"THENSYS36876
  10. 10 IFA$=CHR$(20)THENSYS36885
  11. 11 IFA$=CHR$(136)THEN37
  12. 12 IFA$=CHR$(140)THENGOSUB41
  13. 13 IFA$="E"THENF=1
  14. 14 IFA$="D"THENF=0
  15. 15 X=X+USR(121)*SF:Y=Y-USR(122)*SF
  16. 16 IFX>331THENX=331
  17. 17 IFX<12THENX=12
  18. 18 IFY>239THENY=239
  19. 19 IFY<40THENY=40
  20. 20 A=USR(34),X,Y,0:A=USR(34),16,Y,6:A=USR(34),X,231,7:RETURN
  21. 21 GOSUB3:A=USR(117):IFA<>16THEN21
  22. 22 SYS36864:X1=X-12:Y1=Y-40:A=USR(34),X,Y,1:A=USR(32),1
  23. 23 A=USR(117):IFA<>0THEN23
  24. 24 GOSUB3:A=USR(117):IFA<>16THEN24
  25. 25 X2=X-12:Y2=Y-40:A=USR(34),X,Y,2:A=USR(32),2
  26. 26 A=USR(117):IFA<>0THEN26
  27. 27 A=USR(33),1:A=USR(33),2:IFX1=X2THENIFY1=Y2THEN21
  28. 28 RA=(SQR((X1-X2)^2+(Y1-Y2)^2))/2
  29. 29 X4=X1-(X1-X2)/2:Y4=Y1-(Y1-Y2)/2:A=USR(33),0
  30. 30 FORPH=0TO(null)STEP(null)/100
  31. 31 X3=(COS(PH)*RA)+X4+.5:Y3=(SIN(PH)*RA*.83)+.5:Y1=Y4+Y3:Y2=Y4-Y3
  32. 32 IF(X3>320)OR(X3<0)THEN36
  33. 33 IFY1>199THENY1=199
  34. 34 IFY2<0THENY2=0
  35. 35 A=USR(66+F),X3,Y1,X3,Y2
  36. 36 NEXT:A=USR(32),0:GOTO21
  37. 37 FORT=0TO3:A=USR(33),T:NEXT:SYS36912
  38. 38 GETA$:IFA$=""THEN38
  39. 39 POKE780,ASC(A$):SYS32813
  40. 40 GOTO2
  41. 41 FI$="JJHD":SYS36864:DR=PEEK(36863):POKE36863,PEEK(36862):POKE183,LEN(FI$)
  42. 42 FORT=1TOLEN(FI$):POKE827+T,ASC(MID$(FI$,T,1)):NEXT:SYS32792
  43. 43 GETA$:IFA$=""THEN43
  44. 44 POKE36863,DR:SYS36885:RETURN
  45.